home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 6 / developer source - volume 6.iso / delpp / fig25-05.gif

< prev

next >

Graphics Interchange Format  |  1996-11-19  |  28KB  |  640x480  |  4-bit (12 colors)

Labels: text | screenshot | display | software | computer | number
OCR: fit Delphi 2.0 - Security × File Edit Search View Project Run Component Database Tools Help Standard Additional Win95 Data Access Data Controls Win 3.1 |Dialogs A ab] OK + Object Inspector EMPEDIT.PAS X DBChap25: TD. Empedit Properties Ev procedure TForm1. TBEmployeeBeforeOpen (DataSet: TDataset) ; OnLogin begin Session. AddPassword (' syskey2' ) ; end; procedure TForm1. FormCreate (Sender: TObject) ; var f: String; begin f := ExtractFilePath (ParamStr (0) ) ; DBChap25. Connected := False; DBChap25. Params . add (' PATH=' +f) ; DBChap25. Connected := True; TBEmployee. Active := True; end; 36: 1 Modified Insert

---